home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 23
/
Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso
/
Aminet
/
text
/
edit
/
BlacksEditor.lha
/
BlacksEditor
/
Rexx
/
RemoveChars.bed
< prev
next >
Wrap
Text File
|
1997-12-03
|
502b
|
34 lines
/*
** $VER: RemoveChars.bed 1.0 (06.08.96)
**
** Uncomment a marked block with a requestor to ask the depth of
** characters to remove.
**
** Written by Brian Jones
*/
OPTIONS RESULTS
GetBlkDims
PARSE VAR RESULT mode . start . end
IF mode = OFF THEN DO
SetStatusBar "Error: No block marked!"
END; ELSE DO
MarkBlk
RequestNum '"Number of Chars to delete?"'
num = RESULT
Move start 1
RecordMacro QUIET
MoveSOL
Delete Chars num
MoveDown
EndMacro
PlayMacro end - start
Delete Chars num
END